clear
version 15.0
set matsize 150


////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
/// 																		 /// 
/// 																		 /// 			   	
/// Author			: Kenneth Bunker										 ///	
/// Email			: kabunker@gmail.com									 ///														
/// Project			: La elección de 2017 y el fraccionamiento del sistema   ///
/// Date			: 2019114
///																			 ///
///																			 ///
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////


** set working directory:														<------------- SET WORKING DIRECTORY HERE!
cd "/Users/KennethBunker/Dropbox/Bunker - La elección de 2017 (RDERYCP)/data/"


////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
/// 																		 
///	FIGURA 1: Encuestas de opinión pública
///																			 
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////


// load data:
use "polls.dta", clear

// Formate Date
gen fecha2=mdy(mes,dia,ano)
format fecha2 %td

// plot 4 top candidates
graph twoway mspline piera fecha2, name(Piñera) ylabel(0(10)50, angle(0) grid)
graph twoway mspline guillier fecha2, name(Guillier) ylabel(0(10)50, angle(0) grid)
graph twoway mspline snchez fecha2, name(Sanchez) ylabel(0(10)50, angle(0) grid)
graph twoway mspline kast fecha2, name(Kast) ylabel(0(10)50, angle(0) grid)

// combine graphs
graph combine Piñera Guillier Sanchez Kast


////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
/// 																		 
///	FIGURA 2: Participación electoral en elecciones presidenciales, 1989-2017
///																			 
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////


// load data:
use "turnout.dta", clear

// plot
line turnout year


////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
/// 																		 
///	FIGURA 3: Número efectivo de partidos, 1925-2018
///																			 
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////


// load data:
use "party system.dta", clear

// plot número efectivo de partidos electorales
twoway line enep year, name(enep) ylabel(0(2)15, grid)

// plot número efectivo de partidos legislativos
twoway line enlp year, name(enlp) ylabel(0(2)15, grid)


////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
/// 																		 
///	THE END!
///																			 
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

